;*****************************
;* RoboTask Task file
;* Do not edit in text editor!
;*****************************
 
[Root]
ActionAfterRun=INTEGER|0
Actions=FOLDER
Automat=INTEGER|0
CatID=INTEGER|176842955
Comment=STRINGLIST
ContinueOnError=INTEGER|0
ExternalName=STRING|"Task7"
Hide=INTEGER|0
ID=INTEGER|246181634
LogOnAsUser=INTEGER|0
Name=STRING|"[DEMO.BASIC] Merlin (simple)"
OnErrorTaskID=INTEGER|0
Priority=INTEGER|3
RunOnClose=INTEGER|0
RunOnStartup=INTEGER|0
ToLog=INTEGER|3
WriteGeneralLog=INTEGER|0

[Actions]
Action1=FOLDER

[Actions\Action1]
ActionID=STRING|"BASIC_SCRIPT"
Enabled=INTEGER|-1
Name=STRING|"Basic Script"
Params=FOLDER

[Actions\Action1\Params]
line00000=STRING|"Sub Main"
line00001=STRING|"  Dim magent"
line00002=STRING|"  Dim b,x"
line00003=STRING|"  Dim windir As String"
line00004=STRING|"  Dim username As String"
line00006=STRING|"  windir = RoboTaskApp.ExpandText(""{windir}"")"
line00007=STRING|"  username = RoboTaskApp.ExpandText(""{UserName}"")"
line00008=STRING|"  Set magent=CreateObject(""Agent.Control.2"")"
line00009=STRING|"  magent.Connected=True"
line00011=STRING|"  magent.Characters.Load(""My"", windir+""\msagent\chars\merlin.acs"")"
line00013=STRING|"  Set b=magent.Characters.Character(""My"")"
line00014=STRING|"  b.Show"
line00015=STRING|"  b.Speak ""Hello ""+username"
line00016=STRING|"  b.Play(""Searching"")"
line00017=STRING|"  Wait 3"
line00018=STRING|"  MsgBox (""Press OK to move Merlin"")"
line00019=STRING|"  b.StopAll"
line00020=STRING|"  b.MoveTo(300,200)"
line00021=STRING|"  Wait 5"
line00023=STRING|"  b.StopAll"
line00024=STRING|"  b.Play(""Write"")"
line00025=STRING|"  MsgBox (""Press OK to hide Merlin"")"
line00026=STRING|"  b.Play(""Hide"")"
line00027=STRING|"  Wait 3"
line00029=STRING|"End Sub"
linecount=STRING|"31"
source=STRING|"0"